000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.          HHMGR160.
000300*AUTHOR.             DDS TEAM.
000400*REVISED.            DDS TEAM.
000500*                        CMS.
000600**==============================================================**
000700*REMARKS.
000800*     HHMGR010   NATIONAL HHA FOR OCT 1, 2000 FY 2001 START OF HH
000900*     HHMGR012   NATIONAL HHA FOR APR 1, 2001 FY 2001
001000*                          ****
001100*     HHMGR020   NATIONAL HHA FOR OCT 1, 2001 FY 2002
001200*     HHMGR030   NATIONAL HHA FOR OCT 1, 2002 FY 2003
001300*     HHMGR040   NATIONAL HHA FOR OCT 1, 2003 FY 2004
001400*     HHMGR041   NATIONAL HHA FOR APR 1, 2004 FY 2004
001500*     HHMGR050   NATIONAL HHA FOR JAN 1, 2005 CY 2005
001600*     HHMGR060   NATIONAL HHA FOR JAN 1, 2006 CY 2006
001700*     HHMGR061   NATIONAL HHA FOR JAN 1, 2006 CY 2006
001800*                RURAL DIFFERENTIAL VERSION
001900*     HHMGR062   NATIONAL HHA FOR JAN 1, 2006 CY 2006
002000*                RURAL DIFFERENTIAL VERSION AND RURAL CBSA CODES
002100*     HHMGR063   NATIONAL HHA FOR JUL 1, 2006 CY 2006 CICS VERSION
002200*     HHMGR070   NATIONAL HHA FOR JAN 1, 2007 CY 2007 CICS VERSION
002300*     HHMGR071   NATIONAL HHA FOR JAN 1, 2007 CY 2007 CICS VERSION
002400*                CORRECT LUPA RATE DETERMINATION IF STATEMENT
002500*     HHMGR083   NATIONAL HHA FOR JAN 1, 2008 CY 2008 CICS VERSION
002600*                CORRECT LUPA RATE DETERMINATION IF STATEMENT
002700*                CORRECT LUPA CALCULATION FOR REJECTED AND
002800*                REPROCESSED CLAIMS
002900*     HHMGR090   NATIONAL HHA FOR JAN 1, 2008 CY 2008 CICS VERSION
003000*                CORRECT LUPA RATE DETERMINATION IF STATEMENT
003100*                CORRECT LUPA CALCULATION FOR REJECTED AND
003200*                REPROCESSED CLAIMS. KEEP LUPA HIPS FROM RECODING.
003300*     HHMGR091   LUPA ADD ON ZERO FOR ZERO REV VISITS
003400*     HHMGR092   HIPPS CODE RECODE CHANGE FOR 5 IN POS 1
003500*     HHDRV100 EXPAND BILLING RECORD TO 500 BYTES - BEATA VERSION
003600*     HHDRV101 CORRECT LUPA ADD ON FACTORS.
003700*     HHDRV103 CORRECT SUPPLY ADD ON CODING.
003800*     HHDRV105 HEALTH CARE REFORM
003900*     HHDRV110 HEALTH CARE REFORM
004000*     HHDRV120 HEALTH CARE REFORM
004100*     HHDRV130 HEALTH CARE REFORM
004200*     HHDRV142 EXPAND BILLING RECORD TO 600 BYTES
004300*     HHMGR152 CY 2015.2 UPDATE
004300*     HHMGR160 CY 2016.0 UPDATE
004400**==============================================================**
004500 DATE-COMPILED.
004600 ENVIRONMENT                     DIVISION.
004700
004800 CONFIGURATION                   SECTION.
004900 SOURCE-COMPUTER.                IBM-370.
005000 OBJECT-COMPUTER.                IBM-370.
005100
005200 INPUT-OUTPUT SECTION.
005300 FILE-CONTROL.
005400
005500     SELECT HHAFILE    ASSIGN TO UT-S-HHAFILE
005600         FILE STATUS IS UT1-STAT.
005700     SELECT OUTFILE    ASSIGN TO UT-S-OUTFILE
005800         FILE STATUS IS UT2-STAT.
005900     SELECT PRTFILE    ASSIGN TO UT-S-PRTFILE
006000         FILE STATUS IS PRT-STAT.
006100
006200 DATA DIVISION.
006300 FILE SECTION.
006400 FD  HHAFILE
006500     LABEL RECORDS ARE STANDARD
006600     RECORDING MODE IS F
006700     BLOCK CONTAINS 0 RECORDS.
006800 01  HHA-REC                     PIC X(600).
006900
007000 FD  OUTFILE
007100     LABEL RECORDS ARE STANDARD
007200     RECORDING MODE IS F
007300     BLOCK CONTAINS 0 RECORDS.
007400 01  OUT-REC                     PIC X(600).
007500
007600 FD  PRTFILE
007700     RECORDING MODE IS F
007800     BLOCK CONTAINS 133 RECORDS
007900     LABEL RECORDS ARE STANDARD.
008000 01  PRTFILE-LINE                PIC X(133).
008100
008200
008300 WORKING-STORAGE SECTION.
008400 77  W-STORAGE-REF               PIC X(49)  VALUE
008500     'HHA MANAGER       - W O R K I N G   S T O R A G E'.
008600 01  HHMGR-VERSION               PIC X(09)  VALUE 'M2016.0'.
008700 01  HHDRV152                    PIC X(08)  VALUE 'HHDRV160'.
008800 01  HHOPN160                    PIC X(08)  VALUE 'HHOPN160'.
008900 01  SUB1                        PIC 9(03)  VALUE 0.
009000 01  EOF-SW                      PIC 9(01)  VALUE 0.
009100 01  LINE-CTR                    PIC 9(02)  VALUE 65.
009200 01  HHAFILE-CTR                 PIC 9(09)  VALUE 0.
009300 01  OUTFILE-CTR                 PIC 9(09)  VALUE 0.
009400 01  PRTFILE-CTR                 PIC 9(09)  VALUE 0.
009500 01  UT1-STAT.
009600     05  UT1-STAT1               PIC X.
009700     05  UT1-STAT2               PIC X.
009800 01  UT2-STAT.
009900     05  UT2-STAT1               PIC X.
010000     05  UT2-STAT2               PIC X.
010100 01  PRT-STAT.
010200     05  PRT-STAT1               PIC X.
010300     05  PRT-STAT2               PIC X.
010400*******************************************************
010500* NATIONAL HHA RECORD FORMAT PASSED TO HHDRV PROGRAM  *
010600*******************************************************
010700 01  HHA-INPUT-DATA.
010800     05  HHA-DATA.
010900         10  HHA-NPI                 PIC X(10).
011000         10  HHA-HIC                 PIC X(12).
011100         10  HHA-PROV-NO             PIC X(06).
011200         10  HHA-TOB                 PIC XXX.
011300         10  HHA-PEP-INDICATOR       PIC X.
011400         10  HHA-PEP-DAYS            PIC 999.
011500         10  HHA-INIT-PAY-INDICATOR  PIC X.
011600             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.
011700             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.
011800         10  FILLER                  PIC X(07).
011900         10  HHA-MSA1                PIC 9(07)V9(02).
012000         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.
012100             15  FILLER             PIC XXX.
012200             15  HHA-MSA2           PIC XXXX.
012300             15  FILLER             PIC XX.
012400         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.
012500             15  FILLER             PIC XX.
012600             15  HHA-CBSA           PIC XXXXX.
012700             15  FILLER             PIC XX.
012800         10  HHA-SERV-FROM-DATE.
012900             15  HHA-FROM-CC         PIC XX.
013000             15  HHA-FROM-YYMMDD.
013100                 25  HHA-FROM-YY     PIC XX.
013200                 25  HHA-FROM-MM     PIC XX.
013300                 25  HHA-FROM-DD     PIC XX.
013400         10  HHA-SERV-THRU-DATE.
013500             15  HHA-THRU-CC         PIC XX.
013600             15  HHA-THRU-YYMMDD.
013700                 25  HHA-THRU-YY     PIC XX.
013800                 25  HHA-THRU-MM     PIC XX.
013900                 25  HHA-THRU-DD     PIC XX.
014000         10  HHA-ADMIT-DATE.
014100             15  HHA-ADMIT-CC        PIC XX.
014200             15  HHA-ADMIT-YYMMDD.
014300                 25  HHA-ADMIT-YY    PIC XX.
014400                 25  HHA-ADMIT-MM    PIC XX.
014500                 25  HHA-ADMIT-DD    PIC XX.
014600         10  HHA-HRG-DATA      OCCURS 6.
014700             15  HHA-MED-REVIEW-INDICATOR PIC X.
014800             15  HHA-HRG-INPUT-CODE       PIC X(05).
014900             15  HHA-HRG-OUTPUT-CODE      PIC X(05).
015000             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).
015100             15  HHA-HRG-WGTS             PIC 9(02)V9(04).
015200             15  HHA-HRG-PAY              PIC 9(07)V9(02).
015300         10  HHA-REVENUE-DATA     OCCURS 6.
015400             15  HHA-REVENUE-CODE              PIC X(04).
015500             15  HHA-REVENUE-QTY-COV-VISITS    PIC 9(03).
015600             15  HHA-REVENUE-EARLIEST-DATE     PIC 9(08).
015700             15  HHA-REVENUE-DOLL-RATE         PIC 9(07)V9(02).
015800             15  HHA-REVENUE-COST              PIC 9(07)V9(02).
015900             15  HHA-REVENUE-ADD-ON-VISIT-AMT  PIC 9(07)V9(02).
016000     05  HHA-PASSBACK-DATA.
016100         10  HHA-PAY-RTC                PIC 99.
016200         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).
016300         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).
016400         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).
016500         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).
016600     05  HHA-CASE-MIX-DATA.
016700         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).
016800         10  HHA-LUPA-SRC-ADM           PIC X.
016900         10  HHA-RECODE-IND             PIC X.
017000         10  HHA-EPISODE-TIMING         PIC 9.
017100         10  HHA-SEVERITY-POINTS.
017200             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).
017300             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).
017400             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).
017500             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).
017600             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).
017700             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).
017800             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).
017900             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).
018000     05  HHA-PROV-TOTAL-DATA.
018100         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).
018200         10  HHA-PROV-PAYMET-TOTAL      PIC 9(09)V9(02).
018300     05  FILLER                         PIC X(31).
018400*******************************************************
018500*    05  FILLER                         PIC X(20).
018600*******************************************************
018700*    PASSED AND RETURNED FROM HHDRV                   *
018800*******************************************************
018900 01  HOLD-VARIABLES-DATA.
019000     02  HOLD-VAR-DATA.
019100         05  PRICER-OPTION-SW         PIC X.
019200         05  HHOPN-VERSION            PIC X(07).
019300         05  HHDRV-VERSION            PIC X(07).
019400         05  HHCAL-VERSION            PIC X(07).
019500         05  FILLER                   PIC X(20).
019600
019700 01  TOTAL-COUNTERS.
019800     03  FILLER    OCCURS 17.
019900         05  COUNT-TOTAL       PIC 9(09)  COMP.
020000
020100*******************************************************
020200*----------------------------------------------------**
020300*    HHA PAYMENT REPORT COMPONENTS                    *
020400*----------------------------------------------------**
020500 01  HHA-DETAIL-LINE.
020600     05  FILLER                  PIC X(02)  VALUE SPACES.
020700     05  PRT-NPI                 PIC X(10).
020800     05  FILLER                  PIC X(02).
020900     05  PRT-HIC                 PIC X(12).
021000     05  FILLER                  PIC X(02).
021100     05  PRT-PROV                PIC X(06).
021200     05  FILLER                  PIC X(02)  VALUE SPACES.
021300     05  PRT-MSA-CBSA            PIC X(05).
021400     05  FILLER                  PIC X(01)  VALUE SPACES.
021500     05  PRT-FROM-DATE           PIC X(08).
021600     05  FILLER                  PIC X(03)  VALUE SPACES.
021700     05  PRT-PEP                 PIC X.
021800     05  FILLER                  PIC X(02)  VALUE SPACES.
021900     05  PRT-MED-IND1            PIC X.
022000     05  PRT-MED-IND2            PIC X.
022100     05  PRT-MED-IND3            PIC X.
022200     05  PRT-MED-IND4            PIC X.
022300     05  PRT-MED-IND5            PIC X.
022400     05  PRT-MED-IND6            PIC X.
022500     05  FILLER                  PIC X(01)  VALUE SPACES.
022600     05  PRT-TOB                 PIC XXX.
022700     05  PRT-OUTLIER-PAY         PIC $$,$$$,$$$.99.
022800     05  PRT-PAYMENT-RATE        PIC $$,$$$,$$$.99.
022900     05  FILLER                  PIC X(01)  VALUE SPACES.
023000     05  FILLER                  PIC X(01)  VALUE SPACES.
023100     05  PRT-HHA-RTC             PIC 99.
023200     05  FILLER                  PIC X(01)  VALUE SPACES.
023300     05  PRT-13-QTY              PIC X(5).
023400     05  FILLER                  PIC X(01)  VALUE '/'.
023500     05  PRT-16-QTY              PIC X(5).
023600     05  FILLER                  PIC X(02)  VALUE SPACES.
023700     05  PRT-INIT-PAY-IND        PIC X.
023800     05  FILLER                  PIC X(01)  VALUE SPACES.
023900     05  PRT-THRU-DATE           PIC X(08).
024000     05  PRT-REV-DOLL-RATE-1     PIC $$,$$$,$$$.99.
024100
024200 01  HHA-HEAD1.
024300     05  FILLER                  PIC X(01)  VALUE SPACES.
024400     05  FILLER                  PIC X(44)  VALUE
024500        ' C M S,                                     '.
024600     05  FILLER                  PIC X(44)  VALUE
024700        '                                            '.
024800     05  FILLER                  PIC X(44)  VALUE
024900        '                                            '.
025000
025100 01  HHA-HEAD2.
025200     05  FILLER                  PIC X(01)  VALUE SPACES.
025300     05  FILLER                  PIC X(44)  VALUE
025400        ' PDG,DDS     HHA NATIONAL PRICER            '.
025500     05  FILLER                  PIC X(44)  VALUE
025600        '                          T E S T   D A T A '.
025700     05  FILLER                  PIC X(44)  VALUE
025800        '  R E P O R T                               '.
025900
026000 01  HHA-HEAD3.
026100     05  FILLER                  PIC X(01)  VALUE SPACES.
026200     05  FILLER                  PIC X(44)  VALUE
026300        '    NPI         HIC         PROV           F'.
026400     05  FILLER                  PIC X(44)  VALUE
026500        'ROM    PEP  MED   TOB    OUTLIER         TOT'.
026600     05  FILLER                  PIC X(44)  VALUE
026700        'AL   RTC SUM3/SUM6  PAY  THRU        REV-1  '.
026800
026900 01  HHA-HEAD4.
027000     05  FILLER                  PIC X(01)  VALUE SPACES.
027100     05  FILLER                  PIC X(44)  VALUE
027200        '    NO.         NO.         NO.  MSA/CBSA  D'.
027300     05  FILLER                  PIC X(44)  VALUE
027400        'ATE    COD  COD          PAYMENT        PAYM'.
027500     05  FILLER                  PIC X(44)  VALUE
027600        'ENT         QTY     IND  DATE        RATE   '.
027700
027800**--------------------------------------------------------------
027900 PROCEDURE  DIVISION.
028000
028100 0000-MAINLINE  SECTION.
028200     OPEN INPUT  HHAFILE
028300          OUTPUT OUTFILE
028400          OUTPUT PRTFILE.
028500
028600     MOVE LOW-VALUES TO TOTAL-COUNTERS.
028700
028800     PERFORM 0100-PROCESS-RECORDS THRU 0100-EXIT UNTIL EOF-SW = 1.
028900
029000     DISPLAY ' '.
029100
029200     DISPLAY '-- PROGRAM HHMGR160  VERSION  ===> ' HHMGR-VERSION.
029300     DISPLAY '-- PROGRAM HHOPN160  VERSION  ===> ' HHOPN-VERSION.
029400     DISPLAY '-- PROGRAM HHDRV160  VERSION  ===> ' HHDRV-VERSION.
029500
029600     DISPLAY ' '.
029700
029800     IF COUNT-TOTAL (1) > 0
029900         DISPLAY '-- PROGRAM HHCAL016  VERSION  ===> P2001.6 '.
030000     IF COUNT-TOTAL (2) > 0
030100         DISPLAY '-- PROGRAM HHCAL023  VERSION  ===> P2002.3 '.
030200     IF COUNT-TOTAL (3) > 0
030300         DISPLAY '-- PROGRAM HHCAL033  VERSION  ===> P2003.3 '.
030400     IF COUNT-TOTAL (4) > 0
030500         DISPLAY '-- PROGRAM HHCAL044  VERSION  ===> P2004.4 '.
030600     IF COUNT-TOTAL (5) > 0
030700         DISPLAY '-- PROGRAM HHCAL053  VERSION  ===> P2005.3 '.
030800     IF COUNT-TOTAL (6) > 0
030900         DISPLAY '-- PROGRAM HHCAL066  VERSION  ===> P2006.6 '.
031000     IF COUNT-TOTAL (7) > 0
031100         DISPLAY '-- PROGRAM HHCAL074  VERSION  ===> P2007.4 '.
031200     IF COUNT-TOTAL (8) > 0
031300         DISPLAY '-- PROGRAM HHCAL088  VERSION  ===> P2008.8 '.
031400     IF COUNT-TOTAL (9) > 0
031500         DISPLAY '-- PROGRAM HHCAL095  VERSION  ===> P2009.5 '.
031600     IF COUNT-TOTAL (10) > 0
031700         DISPLAY '-- PROGRAM HHCAL10D  VERSION  ===> P2010.D '.
031800     IF COUNT-TOTAL (11) > 0
031900         DISPLAY '-- PROGRAM HHCAL10A  VERSION  ===> P2010.A '.
032000     IF COUNT-TOTAL (12) > 0
032100         DISPLAY '-- PROGRAM HHCAL112  VERSION  ===> P2011.2 '.
032200     IF COUNT-TOTAL (13) > 0
032300         DISPLAY '-- PROGRAM HHCAL121  VERSION  ===> P2012.1 '.
032400     IF COUNT-TOTAL (14) > 0
032500         DISPLAY '-- PROGRAM HHCAL131  VERSION  ===> P2013.1 '.
032600     IF COUNT-TOTAL (15) > 0
032700         DISPLAY '-- PROGRAM HHCAL144  VERSION  ===> P2014.4 '.
032600     IF COUNT-TOTAL (16) > 0
032700         DISPLAY '-- PROGRAM HHCAL152  VERSION  ===> P2015.2 '.
032600     IF COUNT-TOTAL (17) > 0
032700         DISPLAY '-- PROGRAM HHCAL160  VERSION  ===> P2016.0 '.
032800
032900     DISPLAY ' '.
033000
033100     IF COUNT-TOTAL (1) > 0
033200        DISPLAY '-- FY2001 RECORD COUNT  ===> ' COUNT-TOTAL (1).
033300     IF COUNT-TOTAL (2) > 0
033400        DISPLAY '-- FY2002 RECORD COUNT  ===> ' COUNT-TOTAL (2).
033500     IF COUNT-TOTAL (3) > 0
033600        DISPLAY '-- FY2003 RECORD COUNT  ===> ' COUNT-TOTAL (3).
033700     IF COUNT-TOTAL (4) > 0
033800        DISPLAY '-- FY2004 RECORD COUNT  ===> ' COUNT-TOTAL (4).
033900     IF COUNT-TOTAL (5) > 0
034000        DISPLAY '-- FY2005 RECORD COUNT  ===> ' COUNT-TOTAL (5).
034100     IF COUNT-TOTAL (6) > 0
034200        DISPLAY '-- CY2006 RECORD COUNT  ===> ' COUNT-TOTAL (6).
034300     IF COUNT-TOTAL (7) > 0
034400        DISPLAY '-- CY2007 RECORD COUNT  ===> ' COUNT-TOTAL (7).
034500     IF COUNT-TOTAL (8) > 0
034600        DISPLAY '-- CY2008 RECORD COUNT  ===> ' COUNT-TOTAL (8).
034700     IF COUNT-TOTAL (9) > 0
034800        DISPLAY '-- CY2009 RECORD COUNT  ===> ' COUNT-TOTAL (9).
034900     IF COUNT-TOTAL (10) > 0
035000        DISPLAY '-- CY2010C RECORD COUNT ===> ' COUNT-TOTAL (10).
035100     IF COUNT-TOTAL (11) > 0
035200        DISPLAY '-- CY20109 RECORD COUNT ===> ' COUNT-TOTAL (11).
035300     IF COUNT-TOTAL (12) > 0
035400        DISPLAY '-- CY2011  RECORD COUNT ===> ' COUNT-TOTAL (12).
035500     IF COUNT-TOTAL (13) > 0
035600        DISPLAY '-- CY2012  RECORD COUNT ===> ' COUNT-TOTAL (13).
035700     IF COUNT-TOTAL (14) > 0
035800        DISPLAY '-- CY2013  RECORD COUNT ===> ' COUNT-TOTAL (14).
035900     IF COUNT-TOTAL (15) > 0
036000        DISPLAY '-- CY2014  RECORD COUNT ===> ' COUNT-TOTAL (15).
035900     IF COUNT-TOTAL (16) > 0
036000        DISPLAY '-- CY2015  RECORD COUNT ===> ' COUNT-TOTAL (16).
035900     IF COUNT-TOTAL (17) > 0
036000        DISPLAY '-- CY2016  RECORD COUNT ===> ' COUNT-TOTAL (16).
036100
036200     DISPLAY ' '.
036300
036400     DISPLAY '-- INPUT  COUNTS FOR HHAFILE  ===> ' HHAFILE-CTR.
036500     DISPLAY '-- OUTPUT COUNTS FOR OUTFILE  ===> ' OUTFILE-CTR.
036600     DISPLAY '-- OUTPUT COUNTS FOR PRTFILE  ===> ' PRTFILE-CTR.
036700
036800     CLOSE HHAFILE.
036900     CLOSE OUTFILE.
037000     CLOSE PRTFILE.
037100
037200     STOP RUN.
037300
037400 0100-PROCESS-RECORDS.
037500     READ HHAFILE INTO HHA-INPUT-DATA
037600         AT END
037700             MOVE 1 TO EOF-SW
037800             GO TO 0100-EXIT.
037900
038000     ADD 1 TO HHAFILE-CTR.
038100
038200     MOVE ALL '0' TO HOLD-VAR-DATA
038300                     HHA-PASSBACK-DATA.
038400
038500
038600     IF  EOF-SW = 0
038700         PERFORM 0400-APPLY-COUNTERS THRU 0400-EXIT
038800         PERFORM 0200-CALL-DRV THRU 0200-EXIT
038900         PERFORM 1100-WRITE THRU 1100-EXIT.
039000
039100 0100-EXIT.  EXIT.
039200 0200-CALL-DRV.
039300         MOVE 'A' TO PRICER-OPTION-SW
039400         CALL  HHOPN160   USING HHA-INPUT-DATA
039500                                HOLD-VARIABLES-DATA.
039600
039700 0200-EXIT.  EXIT.
039800 0400-APPLY-COUNTERS.
039900
040000      IF HHA-SERV-THRU-DATE < 20020101
040100         ADD 1 TO COUNT-TOTAL (1)
040200         GO TO 0400-EXIT.
040300
040400      IF HHA-SERV-THRU-DATE < 20030101
040500         ADD 1 TO COUNT-TOTAL (2)
040600         GO TO 0400-EXIT.
040700
040800      IF HHA-SERV-THRU-DATE < 20040101
040900         ADD 1 TO COUNT-TOTAL (3)
041000         GO TO 0400-EXIT.
041100
041200      IF HHA-SERV-THRU-DATE < 20050101
041300         ADD 1 TO COUNT-TOTAL (4)
041400         GO TO 0400-EXIT.
041500
041600      IF HHA-SERV-THRU-DATE < 20060101
041700         ADD 1 TO COUNT-TOTAL (5)
041800         GO TO 0400-EXIT.
041900
042000      IF HHA-SERV-THRU-DATE < 20070101
042100         ADD 1 TO COUNT-TOTAL (6)
042200         GO TO 0400-EXIT.
042300
042400      IF HHA-SERV-THRU-DATE < 20080101
042500         ADD 1 TO COUNT-TOTAL (7)
042600         GO TO 0400-EXIT.
042700
042800      IF HHA-SERV-THRU-DATE < 20090101
042900         ADD 1 TO COUNT-TOTAL (8)
043000         GO TO 0400-EXIT.
043100
043200      IF HHA-SERV-THRU-DATE < 20100101
043300         ADD 1 TO COUNT-TOTAL (9)
043400         GO TO 0400-EXIT.
043500
043600      IF HHA-SERV-THRU-DATE < 20100401
043700         ADD 1 TO COUNT-TOTAL (10)
043800         GO TO 0400-EXIT.
043900
044000      IF HHA-SERV-THRU-DATE < 20110101
044100         ADD 1 TO COUNT-TOTAL (11)
044200         GO TO 0400-EXIT.
044300
044400      IF HHA-SERV-THRU-DATE < 20120101
044500         ADD 1 TO COUNT-TOTAL (12)
044600         GO TO 0400-EXIT.
044700
044800      IF HHA-SERV-THRU-DATE < 20130101
044900         ADD 1 TO COUNT-TOTAL (13)
045000         GO TO 0400-EXIT.
045100
045200      IF HHA-SERV-THRU-DATE < 20140101
045300         ADD 1 TO COUNT-TOTAL (14)
045400         GO TO 0400-EXIT.
045100
045200      IF HHA-SERV-THRU-DATE < 20150101
045300         ADD 1 TO COUNT-TOTAL (15)
045400         GO TO 0400-EXIT.
045500
045200      IF HHA-SERV-THRU-DATE < 20160101
045300         ADD 1 TO COUNT-TOTAL (16)
045400         GO TO 0400-EXIT.
045500
045600      ADD 1 TO COUNT-TOTAL (17).
045700
045800 0400-EXIT.  EXIT.
045900
046000 1100-WRITE.
046100
046200******************************************************************
046300*    PRINT HHA PROSPECTIVE PAYMENT TEST DATA DETAIL REPORT
046400******************************************************************
046500
046600     IF  LINE-CTR > 54
046700         PERFORM 1200-HHA-HEADINGS THRU 1200-EXIT.
046800
046900     MOVE SPACES          TO  HHA-DETAIL-LINE.
047000
047100     IF HHA-SERV-THRU-DATE < 20060101
047200        MOVE HHA-MSA2          TO PRT-MSA-CBSA
047300     ELSE
047400        MOVE HHA-CBSA          TO PRT-MSA-CBSA.
047500
047600     MOVE HHA-SERV-FROM-DATE TO PRT-FROM-DATE.
047700     MOVE HHA-SERV-THRU-DATE TO PRT-THRU-DATE.
047800
047900     MOVE HHA-NPI                TO PRT-NPI.
048000     MOVE HHA-HIC                TO PRT-HIC.
048100     MOVE HHA-PROV-NO            TO PRT-PROV.
048200
048300     MOVE HHA-REVENUE-SUM1-3-QTY-THR TO PRT-13-QTY.
048400     MOVE HHA-REVENUE-SUM1-6-QTY-ALL TO PRT-16-QTY.
048500
048600     MOVE HHA-PEP-INDICATOR          TO PRT-PEP.
048700     MOVE HHA-MED-REVIEW-INDICATOR (1)  TO PRT-MED-IND1.
048800     MOVE HHA-MED-REVIEW-INDICATOR (2)  TO PRT-MED-IND2.
048900     MOVE HHA-MED-REVIEW-INDICATOR (3)  TO PRT-MED-IND3.
049000     MOVE HHA-MED-REVIEW-INDICATOR (4)  TO PRT-MED-IND4.
049100     MOVE HHA-MED-REVIEW-INDICATOR (5)  TO PRT-MED-IND5.
049200     MOVE HHA-MED-REVIEW-INDICATOR (6)  TO PRT-MED-IND6.
049300     MOVE HHA-TOB                    TO PRT-TOB.
049400     MOVE HHA-INIT-PAY-INDICATOR TO PRT-INIT-PAY-IND.
049500
049600     MOVE HHA-OUTLIER-PAYMENT        TO PRT-OUTLIER-PAY.
049700     MOVE HHA-TOTAL-PAYMENT          TO PRT-PAYMENT-RATE.
049800     MOVE HHA-REVENUE-DOLL-RATE (1)  TO
049900                                      PRT-REV-DOLL-RATE-1.
050000
050100     MOVE HHA-PAY-RTC                TO PRT-HHA-RTC.
050200
050300     WRITE PRTFILE-LINE FROM HHA-DETAIL-LINE
050400                             AFTER ADVANCING 1.
050500     ADD 1 TO PRTFILE-CTR.
050600     IF PRT-STAT1 > 0 DISPLAY ' BAD1 WRITE ON PRTFILE FILE'.
050700     ADD 1 TO LINE-CTR.
050800
050900******************************************************************
051000*    WRITE OUT-REC FILE 600 BYTES TO GO INTO YOUR INTERFACE
051100******************************************************************
051200     WRITE OUT-REC FROM HHA-INPUT-DATA.
051300
051400     IF UT2-STAT1 > 0 DISPLAY ' BAD2 WRITE ON OUTFILE  FILE'.
051500     ADD 1 TO OUTFILE-CTR.
051600
051700 1100-EXIT.  EXIT.
051800
051900 1200-HHA-HEADINGS.
052000     WRITE PRTFILE-LINE FROM HHA-HEAD1
052100                             AFTER ADVANCING PAGE.
052200     IF PRT-STAT1 > 0 DISPLAY ' BAD3 WRITE ON PRTFILE FILE'.
052300     WRITE PRTFILE-LINE FROM HHA-HEAD2
052400                             AFTER ADVANCING 1.
052500     IF PRT-STAT1 > 0 DISPLAY ' BAD5 WRITE ON PRTFILE FILE'.
052600     MOVE ALL '---' TO PRTFILE-LINE.
052700     WRITE PRTFILE-LINE AFTER ADVANCING 1.
052800     IF PRT-STAT1 > 0 DISPLAY ' BAD4 WRITE ON PRTFILE FILE'.
052900     WRITE PRTFILE-LINE FROM HHA-HEAD3
053000                             AFTER ADVANCING 2.
053100     IF PRT-STAT1 > 0 DISPLAY ' BAD6 WRITE ON PRTFILE FILE'.
053200     WRITE PRTFILE-LINE FROM HHA-HEAD4
053300                             AFTER ADVANCING 1.
053400     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.
053500     MOVE ALL '  -' TO PRTFILE-LINE.
053600     WRITE PRTFILE-LINE AFTER ADVANCING 1.
053700     IF PRT-STAT1 > 0 DISPLAY ' BAD7 WRITE ON PRTFILE FILE'.
053800     MOVE 7 TO LINE-CTR.
053900
054000 1200-EXIT.  EXIT.
054100
054200*****        LAST STATEMENT               *************
